home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / GAMEORTS / BASEBALM.LZH / DLYBLD.BAS < prev    next >
BASIC Source File  |  1988-05-01  |  5KB  |  90 lines
  1. 100    REM CALCULATE DELAYS
  2. 102    GOSUB 800'display info
  3. 110    SKL1=1200:SKL2=1400:SKL3=1600:BATDLY=300:DKDLY=3000:HITDLY=3700
  4. 120    MXDLY=2500:RDLY1=2250:RDLY2=1000:SWDLY=7500:HMRDLY=250:UMPDLY=350
  5. 130    PCCLK=4.7
  6. 140    CLS:LOCATE 10,20
  7. 150    PRINT "ENTER YOUR MACHINE CLOCK SPEED IN MEGA HZ  ":LOCATE 11,22
  8. 152    PRINT "AS A VALUE IN THE RANGE OF 4.7 TO 16 ":PRINT
  9. 154    LOCATE ,37:INPUT "",MCLK
  10. 155    IF MCLK=0 THEN MCLK=4.7:GOTO 160
  11. 158    IF MCLK < 4.7 OR MCLK > 20 THEN BEEP:GOTO 140
  12. 160    MFACTOR = MCLK/PCCLK
  13. 170    SKL1=INT(SKL1*MFACTOR)
  14. 180    SKL2=INT(SKL2*MFACTOR)
  15. 190    SKL3=INT(SKL3*MFACTOR)
  16. 200    BATDLY=INT(BATDLY*MFACTOR)
  17. 210    DKDLY=INT(DKDLY*MFACTOR)
  18. 220    HITDLY=INT(HITDLY*MFACTOR)
  19. 230    MXDLY=INT(MXDLY*MFACTOR)
  20. 240    RDLY1=INT(RDLY1*MFACTOR)
  21. 250    RDLY2=INT(RDLY2*MFACTOR)
  22. 260    SWDLY=INT(SWDLY*MFACTOR)
  23. 262    HMRDLY=INT(HMRDLY*MFACTOR)
  24. 264    UMPDLY=INT(UMPDLY*MFACTOR)
  25. 270'    PRINT SKL1;SKL2;SKL3;BATDLY;DKDLY;HITDLY;MXDLY;RDLY1;RDLY2;SWDLY;HMRDLY;UMPDLY
  26. 275    LOCATE CSRLIN-1,16
  27. 280    PRINT "YOU ENTERED A VALUE OF ";:PRINT USING "##.##"; MCLK;:PRINT " IS THAT CORRECT (Y/N) ?"
  28. 290    C$=INKEY$: IF C$="" THEN 290
  29. 300    IF C$="Y" OR C$="y" THEN 310 ELSE 110
  30. 310    OPEN "BALL.DLY" FOR OUTPUT AS #1
  31. 320    WRITE #1, SKL1,SKL2,SKL3,BATDLY,DKDLY,HITDLY,MXDLY,RDLY1,RDLY2,SWDLY,HMRDLY,UMPDLY
  32. 325    PRINT #1, "DELAYS ARE SET FOR ";MCLK;" MHZ."
  33. 330    CLOSE #1
  34. 340    CLS:LOCATE 10,17:PRINT "THE DELAY FILE ";:PRINT CHR$(34);:PRINT "BALL.DLY";:PRINT CHR$(34);:PRINT " HAS BEEN CREATED"
  35. 345    LOCATE 12,17:PRINT "YOU MAY NOW PLAY BASEBALL BY TYPEING ";:PRINT CHR$(34);:PRINT "BALL";:PRINT CHR$(34);
  36. 350    LOCATE 1,1:SYSTEM
  37. 800    REM sub show install info
  38. 810    CLS:LOCATE 6,1
  39. 820    PRINT "              PROCEDURE TO CREATE A FILE NAMED BALL.DLY":PRINT
  40. 830    PRINT "              FOR USE BY THE BASEBALL PROGRAM. THE FILE":PRINT
  41. 840    PRINT "              CONTAINS TIMING VALUES USED BY THE PROGRAM":PRINT
  42. 850    PRINT "              TO CONTROL DELAYS AND HOW LONG THINGS STAY":PRINT
  43. 860    PRINT "              AT A POSITION ON THE SCREEN BEFORE MOVEMENT.":PRINT
  44. 870    PRINT
  45. 880    PRINT "                <<< PUSH A KEY FOR MORE INFORMATION >>>"
  46. 890    PRINT "                           PUSH ESC TO QUIT
  47. 900    C$=INKEY$:IF C$="" THEN 900
  48. 910    IF C$=CHR$(27) THEN SYSTEM ELSE CLS:LOCATE 3,1
  49. 920    PRINT"               THE VALUE YOU WILL BE REQUESTED TO ENTER IS":PRINT
  50. 930    PRINT"               REFERRED TO AS THE CLOCK SPEED OF YOUR":PRINT
  51. 940    PRINT"               COMPUTER AND THAT IS THE MEASURE OF HOW FAST":PRINT
  52. 950    PRINT"               YOUR COMPUTER OPERATES. THE BASEBALL PROGRAM":PRINT
  53. 960    PRINT"               NEEDS TO KNOW THIS VALUE SO THAT IT CAN BE":PRINT
  54. 970    PRINT"               USED ON COMPUTERS OF DIFFERENT SPEEDS AND":PRINT
  55. 980    PRINT"               NOT APPEAR TO BE TOO SLOW OR TOO FAST. YOU":PRINT
  56. 990    PRINT"               WILL ONLY HAVE TO ENTER A VALUE ONCE.":PRINT
  57. 1000    PRINT
  58. 1010    PRINT"                <<< PUSH A KEY FOR MORE INFORMATION >>>"
  59. 1020    PRINT"                            PUSH ESC TO QUIT"
  60. 1030    C$=INKEY$:IF C$="" THEN 1030
  61. 1040    IF C$=CHR$(27) THEN SYSTEM ELSE CLS:LOCATE 3,1
  62. 1050    PRINT"               THE DEFAULT CLOCK SPEED IS 4.7 MHZ AND ALL":PRINT
  63. 1060    PRINT"               SPEEDS ARE DIRECTLY PROPORTIANAL TO THIS":PRINT
  64. 1070    PRINT"               VALUE. IF YOU DON'T KNOW THE CLOCK SPEED OF":PRINT
  65. 1080    PRINT"               YOUR COMPUTER YOU MAY USE THE FOLLOWING AS":PRINT
  66. 1090    PRINT"               GUIDELINES OR YOU MAY EXPERIMENT WITH THIS":PRINT
  67. 2000    PRINT"               PROCEDURE AND ENTER DIFFERENT VALUES UNTIL":PRINT
  68. 2010    PRINT"               THE GAME LOOKS RIGHT FOR YOUR.":PRINT
  69. 2020    PRINT"
  70. 2030    PRINT"                 <<< PUSH A KEY FOR MORE INFORMATION >>>"
  71. 2040    PRINT"                            PUSH ESC TO QUIT"
  72. 2050    C$=INKEY$:IF C$="" THEN 2050
  73. 2060    IF C$=CHR$(27) THEN SYSTEM ELSE CLS:LOCATE 3,1
  74. 2070    PRINT"               YOU MIGHT WANT TO MAKE NOTE OF THE FOLLOWING":PRINT
  75. 2080    PRINT"               TO USE WHEN REQUESTED TO ENTER A CLOCK SPEED":PRINT
  76. 2090    PRINT"               VALUE:":PRINT
  77. 2100    PRINT"               COMPUTER TYPE             CLOCK SPEED ENTRY":PRINT
  78. 2110    PRINT"               IBM PC                    4.7 (DEFAULT)":PRINT
  79. 2120    PRINT"               IBM PC/XT                 4.7 (DEFAULT)":PRINT
  80. 2130    PRINT"               IBM PC/AT                 8.0":PRINT
  81. 2140    PRINT"               ZENITH                    4.7 OR 8.0":PRINT
  82. 2150    PRINT"               OTHER COMPATABLES         4.7 THRU 16":PRINT
  83. 2160    PRINT"                <<< PUSH A KEY FOR MORE INFORMATION >>>"
  84. 2170    PRINT"                             PUSH ESC TO QUIT"
  85. 2180    C$=INKEY$:IF C$="" THEN 2180
  86. 2190    IF C$=CHR$(27) THEN SYSTEM
  87. 2200    RETURN
  88.  
  89.  
  90.